home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d1
/
awk210.arc
/
GCD.AWK
< prev
next >
Wrap
Text File
|
1988-12-29
|
286b
|
11 lines
{
arg1 =$1; arg2 = $2;
while (arg1 != arg2) {
if (arg1 > arg2)
arg1 -= arg2
else
arg2 -= arg1
}
print "The greatest common divisor of", $1, "and", $2, "is", arg1
}